(bibtex-format-entry): Simplify previous change.

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 0114f234dd6b74cd0683872cdfa33a0955ac09a1..139f9f02d047a9033ab3fc3dbb394d58a64d4bc7 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1893,7 +1893,6 @@ Formats current entry according to variable `bibtex-entry-format'."
                               strings)
                   bibtex-entry-format))
         (left-delim-re (regexp-quote (bibtex-field-left-delimiter)))
-        (right-delim-re (regexp-quote (bibtex-field-right-delimiter)))
         bounds crossref-key req-field-list default-field-list field-list
         alt-fields error-field-name)
     (unwind-protect
@@ -2006,12 +2005,11 @@ Formats current entry according to variable `bibtex-entry-format'."
                         (if (looking-at bibtex-field-const)
                             (goto-char (match-end 0))
                           (let ((boundaries (bibtex-parse-field-string)))
-                            (unless (looking-at left-delim-re)
+                            (if (looking-at left-delim-re)
+                                (goto-char (cdr boundaries))
                               (delete-char 1)
-                              (insert (bibtex-field-left-delimiter)))
-                            (goto-char (1- (cdr boundaries)))
-                            (if (looking-at right-delim-re)
-                                (forward-char)
+                              (insert (bibtex-field-left-delimiter))
+                              (goto-char (1- (cdr boundaries)))
                               (delete-char 1)
                               (insert (bibtex-field-right-delimiter)))))
                         (if (looking-at "[ \t\n]*#[ \t\n]*")